home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m1_____7.p2s < prev    next >
Encoding:
Text File  |  1994-04-27  |  1.9 KB  |  74 lines
  1. #######################################################################
  2. #                                                                     #
  3. #                                                                     #
  4. # DESCRIPTION: Normal usage - open cue, play, pause, resume,          #
  5. #              stop, seek, close.                                     #
  6. #                                                                     #
  7. #                                                                     #
  8. #######################################################################
  9. @THREADS=1
  10. # thread 1 controls sequencer
  11. #
  12. @THREAD 1
  13. #
  14. # open default sequencer device exclusively (and loading datafile type1.mid)
  15. #
  16. open ?AP2PATH?type1.mid type sequencer00 alias midi1 notify
  17. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  18. @WAIT_NOTIFY 1 30000
  19. acquire midi1
  20. @WAIT_PASSDEVICE midi1 180000
  21. @PAUSE 2000
  22. #
  23. # cue for play
  24. #
  25. cue midi1 output notify
  26. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE #2
  27. @WAIT_NOTIFY 2 30000
  28. #
  29. # play for a little while....
  30. #
  31. play midi1 notify
  32. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY #3
  33. @PAUSE 30000
  34. #
  35. # pause the play for 2 seconds
  36. #
  37. pause midi1 notify
  38. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #4
  39. @WAIT_NOTIFY 4 30000
  40. @PAUSE 2000
  41. #
  42. # resume for 5 seconds
  43. #
  44. resume midi1 notify
  45. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME #5
  46. @WAIT_NOTIFY 5 30000
  47. @PAUSE 5000
  48. #
  49. #
  50. stop midi1 notify
  51. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #6
  52. @WAIT_NOTIFY 3 30000
  53. @WAIT_NOTIFY 6 30000
  54. #
  55. # seek back to start of media
  56. #
  57. seek midi1 to start notify
  58. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #7
  59. @WAIT_NOTIFY 7 30000
  60. #
  61. # play for 3 seconds (asynchronous)
  62. #
  63. play midi1 notify
  64. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY #8
  65. @PAUSE 3000
  66. #
  67. # close sequencer device
  68. #
  69. close midi1 notify
  70. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #9
  71. @WAIT_NOTIFY 9 30000
  72. @WAIT_NOTIFY 8 30000
  73.  
  74.